#!/usr/bin/env perl

# Copyright (C) Yichun Zhang (agentzh)

use v5.10.1;
use strict;
use warnings;

sub err (@);

my $SpecialDepPat = qr/^(?:openresty|luajit|ngx_(?:http_)?lua|nginx)$/;


say $ENV{PATH};

say "你好啊，我是一个PERL程序~!";

# =cut
say "SpecialDepPat==$SpecialDepPat";

my $name = "Wasabihu";

my $cmd = shift or
    err "no command specified.\n";

say "cmd==$cmd";

err "failed to find package $name on server: ...";


sub err  (@){
    
    die "ERROR: ", @_;
}